$Resize:Stretch _Title "ADVENTURE DRACULA" '_FULLSCREEN 5 Rem *********************** 10 Rem 20 Rem ADVENTURE DRACULA 30 Rem 40 Rem 50 Screen 7: Color 1: Cls: Color 15, 1: Locate 8, 2: Input "DIMMI IL NOME"; CV$ 'Locate 2, 8 Screen 7, 4, 4 60 If CV$ = "" Then Print "SOLO ULISSE SI FACEVA CHIAMARE 'NESSUNO'": Play "CCCC": GoTo 50 '"DODODODO" 70 If CV$ = "VOSTRO NOME" Then Print: Print " Si vede che hai la stoffa del vincitore nato ....": GoTo 110 80 Print: Print Tab(5); CV$; " ? ... e con questo nome" 90 Print " cosi' ridicolo tu vorresti anche risolvere questo ADVENTURE ? ..." 100 Print: Print " NON CI RIUSCIRAI MAI !!!!" 110 If InKey$ = "" Then 110 120 Color 1: Cls: Color 15, 1 130 GoSub 3740: LA = 0: PO = 0: CA = 0: SC = 0 140 Color 4: Cls: Color 15, 4: 'Screen 7, 1, 1 150 Locate 1, 8: Print "SALONE DEL CASTELLO": Print 'Locate 8, 1 160 GoSub 1640 170 ' 180 ' ******************************* 190 ' * * 200 ' * SALONE DEL CASTELLO * 210 ' * * 220 ' ******************************* 230 ' 240 Print " Ti trovi nel salone del castello del conte Dracula vedi uno squallido LAMPADARIO,una losca PORTA, un vecchio CAMINO e una SCALA di legno.....": Print: Print " Direzioni:Nord" 250 GoSub 1650: GoSub 1880: 260 GoSub 1730 270 If R$ = "0" Then 2080 280 If R$ = V8$ + " " + "CHIAVE" And UC = 1 Then ZX = 1: GoSub 1800: Print " C'e'dell'AGLIO qui dentro.....": GoSub 1650: GoTo 260 290 If R$ = V9$ + " " + "AGLIO" And ZX = 1 Then AG = 1: OG = OG + 1: GoSub 1800: Print " O.k...": GoSub 1650: GoTo 260 300 If R$ = VO$ Then GoSub 1240: GoTo 140 310 If R$ = OG$ Then GoSub 1500: GoTo 140 320 If R$ = V5$ + " " + O2$ And CH = 0 Then GoSub 1800: Color 4: Cls: Locate 10, 4: Print "Uno scheletro ti da la mano...": Print: Print " CIAO": Play "CCCCDC": GoTo 2020 '"DODODODOREDO" Locate 4, 10 330 If R$ = V6$ + " " + O1$ And LA = 0 Then GoSub 1800: Print " Non c'e'nulla...solo ragnatele!!!": GoSub 1800: GoSub 1650: GoTo 260 340 If R$ = V4$ + " " + O3$ Then GoSub 1800: Print "Incredibile... c'e'una porta segreta!": Sleep 3: GoTo 510 'For P = 1 To 500: Next P 350 If R$ = V5$ + " " + O2$ And CH = 1 Then UC = 1: GoSub 1800: Print "Serve la chiave...presto!!!!": GoSub 1650: GoTo 260 360 If R$ = V7$ + " " + O4$ And SA = 0 Then GoSub 1800: Print " Sei sulla torre,vedi del SANGUE,la SCALA e una LANTERNA": GoSub 1650: GoSub 1730: GoTo 390 370 GoSub 1800: Print " LASCIA STARE.....": GoSub 1650: GoTo 260 380 GoTo 390 390 ' 400 If R$ = V6$ + " " + O6$ Then GoSub 1800: Print " Cosa ci devi fare...le trasfusioni!!": GoSub 1650: GoSub 1730: GoTo 390 410 If R$ = V9$ + " " + O5$ Then F = 1: OG = OG + 1: GoSub 1800: Print "OK.....": GoSub 1650: GoSub 1730: GoTo 390 420 If R$ = M1$ + " " + O4$ Then GoSub 1800: Print " Ritorni al salone....": Sleep 3: GoTo 140 'For P = 1 To 500: Next P 430 GoSub 1800: Print " LASCIA STARE.....": GoSub 1650: GoSub 1730: GoTo 390 440 ' 450 ' ******************************** 460 ' * * 470 ' * PASSAGGIO SEGRETO (1) * 480 ' * * 490 ' ******************************** 500 ' 510 Sleep 3 'For P = 1 To 300: Next P 520 Color 15: Cls: Color 4, 15: Locate 10, 5: Print "VEDIAMO DOVE TI PORTA....": Sleep 5 'Locate 5, 10 For P = 1 To 1500 : Next P 530 VV = 0: VM = 0: FD = 0: Color 4: Cls: Color 7, 4: Locate 14, 1: Print "CIMITERO": Print 540 GoSub 1640: Print "Sei uscito dal castello,ti trovi nel lugubre CIMITERO, noti una strana TOMBA,un TESCHIO e il PASSAGGIO segreto.": Print: Print "Direzioni:Nessuna": GoSub 1650 550 GoSub 1730 560 If R$ = V5$ + " " + "TOMBA" And PI = 0 Then GoSub 1800: Print "C'e'un Vampiro voglioso di sangue...": GoSub 1650: GoTo 2020 570 If R$ = VO$ Then GoSub 1240 580 If R$ = OG$ Then GoSub 1500 590 If R$ = V5$ + " " + "TOMBA" And PI = 1 Then VV = 1: GoSub 1800: Print "C'e'un VAMPIRO che riposa,fallo fuori ...( Sparagli)": GoSub 1650: GoTo 550 600 If R$ = "USO" + " " + "PISTOLA" And VV = 1 Then VM = 1: GoSub 1800: Print "Poverino,gli e'schizzato lo stomaco..": GoSub 1650: GoTo 550 610 If R$ = V6$ + " " + "VAMPIRO" And VM = 1 Then FD = 1: GoSub 1800: Print "Ora che e'morto non corri pericoli... il suo mantello cela un FISSATORE per dentiere": GoSub 1650: GoTo 550 620 If R$ = V9$ + " " + "FISSATORE" And FD = 1 Then FI = 1: OG = OG + 1: GoSub 1800: Print " O.K...": GoSub 1650: GoTo 550 630 If R$ = V6$ + " " + "CIMITERO" Then GoSub 1800: Print "Perche'? vuoi forse cambiare residenza?": GoSub 1650: GoTo 550 640 If R$ = V6$ + " " + "TESCHIO" Then GoSub 1800: Print "E'un teschio parlante, ti rivela che nella stanza delle armi e'nascosta la mappa del castello,per trovarla devi pero'spostare qualcosa.....": GoSub 1650: GoTo 550 650 If R$ = V4$ + " " + "PASSAGGIO" Then GoTo 140 660 GoSub 1800: Print " LASCIA STARE...": GoSub 1650: GoTo 550 670 ' 680 ' ******************************* 690 ' * * 700 ' * PASSAGGIO SEGRETO (2) * 710 ' * * 720 ' ******************************* 730 ' 740 CO = 0: BO = 0: OS = 0: Play "ABCDE": Color 9: Cls: Color 13, 9 'Screen 0, 12, 12 '"LASIDOREMI" 750 Locate 1, 7: Print "STANZA DELLE TORTURE": Print 'Locate 7, 1 760 GoSub 1640 770 Print "Sei finito nella stanza delle torture un luogo segreto, da dove nessun uomo e' mai riuscito ad uscire,noti un TORCHIO,una CATENA,il BUCO,ed uno SCHELETRO...": Print: Print "Direzioni: Nessuna" 780 GoSub 1650 790 GoSub 1730 800 If R$ = VO$ Then GoSub 1240: GoTo 740 810 If R$ = OG$ Then GoSub 1500: GoTo 740 820 If R$ = V6$ + " " + "TORCHIO" Then GoSub 1800: Print "Di particolare c'e'solo del sangue...": GoSub 1650: GoTo 790 830 If R$ = V9$ + " " + "CATENA" Then BO = 1: GoSub 1800: Print "Hai azionato qualcosa,si e'aperta una BOTOLA!!!": GoSub 1650: GoTo 790 840 If R$ = V6$ + " " + "SCHELETRO" Then GoSub 1800: Print "Da questa posizione sembra non avere nulla di particolare....": GoSub 1650: GoTo 790 850 If R$ = V4$ + " " + "BOTOLA" And BO = 1 Then CO = 1: GoSub 1800: Print "C'e'una CORDA": GoSub 1650: GoTo 790 860 If R$ = V9$ + " " + "CORDA" And CO = 1 Then XC = 1: OG = OG + 1: GoSub 1800: Print " O.K...": GoSub 1650: GoTo 790 870 If R$ = V3$ + " " + "SCHELETRO" Then OS = 1: GoSub 1800: Print " Sotto quelle quattro ossa c'e' un FOGLIETTO!!!!": GoSub 1650: GoTo 790 880 If R$ = "LEGGO" + " " + "FOGLIETTO" And OS = 1 Then GoSub 1800: Print "Dice che il Conte Dracula, che tu cerchi disperatamente ,si trova al di la della griglia, nelle segrete.....": GoSub 1650: GoTo 790 890 If R$ = V4$ + " " + "BUCO" Then GoTo 2410 900 GoSub 1800: Print " LASCIA STARE": GoSub 1650: GoTo 790 910 ' 920 ' ******************************* 930 ' * * 940 ' * PIANTA CASTELLO * 950 ' * * 960 ' ******************************* 970 ' 980 Color 0: Cls: Color 15, 0 'Screen 7, 0, 0 990 Line (50, 20)-(220, 150), 15, B 'BOX(50,20)-(220,150), 15 1000 Color 7: Locate 1, 7: Print "PIANTA DEL CASTELLO" ' locate 7,1 1010 Line (140, 30)-(170, 60), 10, BF 'BOXF(140,30)-(170,60),10 1020 Line (151, 60)-(151, 70), 10: Line (158, 60)-(158, 70), 10 1030 Line (140, 70)-(170, 100), 10, BF 'BOXF(140,70)-(170, 100),10 1040 Line (170, 81)-(180, 81), 10: Line (170, 89)-(180, 89), 10 1050 Line (180, 70)-(210, 100), 10, BF 'BOXF(180,70)-(210, 100),10 1060 Line (130, 70)-(100, 100), 10, BF 'BOXF(130,70)-(100, 100),10 1070 Line (130, 81)-(140, 81), 10: Line (130, 89)-(140, 89), 10 1080 Line (90, 70)-(60, 100), 10, BF 'BOXF(90,70)-(60, 100),10 1090 Line (90, 81)-(100, 81), 10: Line (90, 89)-(100, 89), 10 1100 Line (90, 110)-(60, 140), 10, BF 'BOXF(90,110)-(60,140),10 1110 Line (71, 110)-(71, 90), 10: Line (79, 110)-(79, 90), 10 1120 Line (100, 110)-(130, 140), 10, BF 'BOXF(100,110)-(130, 140),10 1130 Line (111, 110)-(111, 90), 10: Line (118, 110)-(118, 90), 10 1140 Locate 23, 1: Print "PREMI UN TASTO PER CONTINUARE" 'Locate 1,23 1150 QA$ = InKey$: If QA$ = "" Then 1150 1160 Return 1170 ' 1180 ' ******************************* 1190 ' * * 1200 ' * VOCABOLARIO * 1210 ' * * 1220 ' ******************************* 1230 ' 1240 Color 0: Cls: Color 15, 0: Locate 2, 13: Print "VOCABOLARIO": Locate 5, 1 'Locate 13, 2 Locate 1, 5 Screen 7, 0, 0 1250 Print: Print " SCENDO" 1260 Print: Print " PRENDO" 1270 Print: Print " USO" 1280 Print: Print " SALGO" 1290 Print: Print " ESAMINO" 1300 Print: Print " AIUTAMI" 1310 Print: Print " ABRACADABRA" 1320 Locate 5, 1 ' locate 1, 5 1330 Print: Print " APRO" 1340 Print: Print " ENTRO" 1350 Print: Print " ALZO" 1360 Print: Print " SPOSTO" 1370 Print: Print " BEVO" 1380 Print: Print " LEGGO" 1390 Print: Print " VOLO" 1400 Locate 21, 4: Print "PREMI UN TASTO PER CONTINUARE" 'Locate 4, 21 1410 Q$ = InKey$: If Q$ = "" Then 1410 1420 Return 1430 ' 1440 ' ****************************** 1450 ' * * 1460 ' * INVENTARIO * 1470 ' * * 1480 ' ****************************** 1490 ' 1500 Color 0: Cls: Color 15, 0: Locate 1, 1: Print " OGGETTI:": Print: Print 'Screen 7, 0, 0 1510 If CH = 1 Then Print " CHIAVE" 1520 If AG = 1 Then Print " AGLIO " 1530 If F = 1 Then Print " LANTERNA" 1540 If PI = 1 Then Print " PISTOLA" 1550 If FR = 1 Then Print " FRUSTA" 1560 If FI = 1 Then Print " FISSATORE" 1570 If CR = 1 Then Print " CROCIFISSO" 1580 If SC = 1 Then Print " SCALA " 1590 If SP = 1 Then Print " SPRANGA " 1600 If XC = 1 Then Print " CORDA " 1610 Locate 21, 4: Print "PREMI UN TASTO PER CONTINUARE" 'Locate 4, 21 1620 Q$ = InKey$: If Q$ = "" Then 1620 1630 Return 1640 Print "****************************************": Return 1650 Print "****************************************": Return 1660 ' 1670 ' ****************************** 1680 ' * * 1690 ' * INPUT * 1700 ' * * 1710 ' ****************************** 1720 ' 1730 Print: Input " Cosa fai "; R$: CF = CF + 1 1740 Data XXXX,XXXXXXX,XXXXX,XXXXXXX,XXXXXXXXX,XXXXX,XXXXXXXXXX,XXXXX,XXXXXXX: Rem INSERIRE LE PAROLACCE 1750 'RESTORE 1740:FOR Q=1 TO 9:READ W$:IF R$=W$ THEN PRINT:GOSUB 1640:PRINT" ";W$;" A TE E A TUA MADRE ...":PRINT:GOSUB 1640:GOTO 1730:ELSE NEXT Q 1760 If R$ = "AIUTAMI" Then Print: GoSub 1640: Print " Fossi scemo ... l' ADVENTURE te la devi risolvere da solo. (E SON CAVOLI... tuoi)": GoSub 1650: GoTo 1730 1770 If R$ = "VOLO" Then Print: GoSub 1640: Print " Niente male come idea, peccato pero' che, casomai te lo fossi dimenticato, non sei ne' un DIRIGIBILE ne' un JUMBO";: GoSub 1650: GoTo 1730 1780 If R$ = "ABRACADABRA" Then Print: GoSub 1640: Print " OOOH ma cosa credi ?! che questa sia una favola come ALI BABA'?! Questo e' un ADVENTURE serio !!!": GoSub 1650: GoTo 1730 1790 Return 1800 Print: Sleep 1: Return 'For P = 1 To 160: Next P 1810 ' 1820 ' ****************************** 1830 ' * * 1840 ' * VERBI E OGGETTI * 1850 ' * * 1860 ' ****************************** 1870 ' 1880 V1$ = "BEVO": V2$ = "SPOSTO" 1890 V3$ = "ALZO": V4$ = "ENTRO": V5$ = "APRO": V6$ = "ESAMINO": V7$ = "SALGO" 1900 V8$ = "USO": V9$ = "PRENDO" 1910 M1$ = "SCENDO" 1920 O1$ = "LAMPADARIO": O2$ = "PORTA": O3$ = "CAMINO": O4$ = "SCALA": O5$ = "LANTERNA": O6$ = "SANGUE": VO$ = "VOCABOLARIO": OG$ = "INVENTARIO" 1930 D1$ = "NORD": D2$ = "SUD": D3$ = "EST": D4$ = "OVEST" 1940 Return 1950 ' 1960 ' ****************************** 1970 ' * * 1980 ' * END GAME * 1990 ' * * 2000 ' ****************************** 2010 ' 2020 Sleep 5: Color 2: Cls: Locate 5, 1: Color 9, 2: Print "PECCATO "; CV$ 'Locate 1, 5 Screen 0, 2, 2 For P = 1 To 1500: Next P 2030 Print: Print "NON SEI RIUSCITO AD USCIRE DAL CASTELLO DI DRACULA COMUNQUE PUOI SEMPRE RIPROVARE" 2040 Print: Print "PREMI UN TASTO PER RIPROVARE" 2050 U$ = InKey$ 2060 If U$ = "" Then 2050 2070 Run 2080 GoSub 1650: GoSub 1800: Input " Direzione "; DI$ 2090 If DI$ = D1$ Then 2110 2100 If DI$ <> D1$ Then: Print: Print " Non e' possibile": GoTo 2080 2110 ' 2120 ' ****************************** 2130 ' * * 2140 ' * CORRIDOIO DEL CASTELLO * 2150 ' * * 2160 ' ****************************** 2170 ' 2180 Play "ECDEAG" '"MIDOREMILASO" 2190 Color 0: Cls: Color 2, 0: Locate 1, 7: Print "CORRIDOIO DEL CASTELLO": Print 'Locate 7, 1 Screen 2, 0, 0 2200 GoSub 1640 2210 Print "Sei nel CORRIDOIO, punto di raccordo di tutte le stanze, c'e'un buio pesto riesci a malapena ad intravedere un OGGETTO luccicante,nell'aria c'e'un acre ODORE...": Print 2220 Print "Direzioni:Est,Sud,Ovest": GoSub 1650 2230 GoSub 1730 2240 If R$ = V6$ + " " + "CORRIDOIO" Then Y = 1: GoSub 1800: Print "C'e' troppo buio, non si riesce a distinguere nulla, ci vorrebbe un po' di.. luce": GoSub 1650: GoSub 1730: GoTo 2240 2250 If R$ = V8$ + " " + O5$ And F = 1 And Y = 1 Then L = 1: GoSub 1800: Print "Ora va meglio!!!,vedo una CHIAVE": GoSub 1650: GoSub 1730: GoSub 1800 2260 If R$ = V9$ + " " + "CHIAVE" And L = 1 Then CH = 1: OG = OG + 1: Print " O.K...": GoSub 1650: GoSub 1730: GoTo 2240 2270 If R$ = V8$ + " " + "LANTERNA" And F = 0 And Y = 1 Then GoSub 1800: Print "Bugiardo non c'e l'hai!!!": GoSub 1650: GoSub 1730: GoTo 2240 2280 If R$ = V9$ + " " + "OGGETTO" And Y = 0 Then GoSub 1800: Print "AL tatto sembra una CHIAVE!!!,ma...... ahi, qualcosa mi ha morso !!!": GoSub 1650: GoTo 2020 2290 If R$ = V6$ + " " + "ODORE" Then GoSub 1800: Print "Niente di speciale feci di topo....": GoSub 1650: GoSub 1730: GoTo 2240 2300 If R$ = VO$ Then GoSub 1240: GoTo 2180 2310 If R$ = OG$ Then GoSub 1500: GoTo 2180 2320 If R$ = "0" Then GoSub 1650: GoSub 1800: Input " Direzione"; DI$: If DI$ = D2$ Then GoTo 140 Else If DI$ = D3$ Then GoTo 2900 ElseIf DI$ = D4$ Then GoTo 2410 Else GoTo 2340 End If End If 2330 GoSub 1800: Print " LASCIA STARE....": GoSub 1650: GoSub 1730: GoTo 2240 2340 Print: Print "Non e' possibile": GoTo 2230 2350 ' ****************************** 2360 ' * * 2370 ' * SEGRETE * 2380 ' * * 2390 ' ****************************** 2400 ' 2410 Play "CCD" ' "DODORE" 2420 BU = 0: Color 8: Cls: Color 9, 8: Locate 1, 14: Print "SEGRETE": Print 'Locate 14, 1 Screen 0, 8, 8 2430 GoSub 1640 2440 Print "Sei sceso giu'nelle segrete,un luogo umido e raccapricciante,noti una FRUSTA, una GRIGLIA,e una LUCE intensa, oltre che centinaia di topi.": Print: Print "Direzioni:Sud,Est" 2450 GoSub 1650 2460 GoSub 1730 2470 If R$ = V9$ + " " + "FRUSTA" Then FR = 1: OG = OG + 1: GoSub 1800: Print " OK...": GoSub 1650: GoTo 2460 2480 If R$ = V3$ + " " + "GRIGLIA" Then GoSub 3640 2490 If R$ = V6$ + " " + "LUCE" Then BU = 1: GoSub 1800: Print "Proviene da un BUCO sulla parete!!!": GoSub 1650: GoTo 2460 2500 If R$ = V4$ + " " + "BUCO" And BU = 1 Then GoSub 1800: GoTo 740 2510 If R$ = "0" Then 2550 2520 If R$ = VO$ Then GoSub 1240: GoTo 2410 2530 If R$ = OG$ Then GoSub 1500: GoTo 2410 2540 GoSub 1800: Print " LASCIA STARE.....": GoSub 1650: GoSub 1730: GoTo 2470 2550 GoSub 1650: GoSub 1800: Input " Direzione "; DI$: If DI$ = D2$ Then GoTo 2640 ElseIf DI$ = D3$ Then GoTo 2180 End If 2560 If DI$ <> D2$ Or DI$ <> D4$ Then: Print: Print " Non e' possibile": GoTo 2550 2570 ' 2580 ' ***************************** 2590 ' * * 2600 ' * ARMERIA * 2610 ' * * 2620 ' ***************************** 2630 ' 2640 Play "EDCCDE" '"MIREDODOREMI" 2650 MA = 0: Color 7: Cls: Color 9, 7: Locate 1, 8: Print " STANZA DELLE ARMI": Print 'Locate 8, 1 Screen 0, 15, 15 2660 GoSub 1640 2670 Print "Sei nell armeria,sulle pareti vecchie armi,una PISTOLA,dei fucili un rudimentale CANNONE,sulla destra un ARMADIO.": Print: Print "Direzioni possibili:Nord": GoSub 1650 2680 GoSub 1730 2690 If R$ = V2$ + " " + "CANNONE" Then MA = 1: GoSub 1800: Print " Ehila'!!! c'e'una MAPPA...": GoSub 1650: GoTo 2680 2700 If R$ = "LEGGO" + " " + "MAPPA" And MA = 1 Then GoSub 980: Color 9: GoTo 2640 'Screen 0 2710 If R$ = VO$ Then GoSub 1240: GoTo 2640 2720 If R$ = OG$ Then GoSub 1500: GoTo 2640 2730 If R$ = V9$ + " " + "PISTOLA" Then PI = 1: OG = OG + 1: GoSub 1800: Print " O.K...": GoSub 1650: GoTo 2680 2740 If R$ = V5$ + " " + "ARMADIO" And AG = 0 Then GoSub 1800: Print "C'e'un bel Vampiro qui dentro!!!!": GoTo 2020 2750 If R$ = V5$ + " " + "ARMADIO" And AG = 1 Then VA = 1: GoSub 1800: Print "Serve l'AGLIO,c'e'un vampiro!!!": GoSub 1650: GoTo 2680 2760 If R$ = V8$ + " " + "AGLIO" And VA = 1 Then QE = 1: GoSub 1800: Print "O.k..il Vampiro e'scappato, comunque nell'armadio trovi una SCALA....": GoSub 1650: GoTo 2680 2770 If R$ = V9$ + " " + "SCALA" And QE = 1 Then SC = 1: OG = OG + 1: GoSub 1800: Print " O.K...": GoSub 1650: GoTo 2680 2780 If R$ = V6$ + " " + "CANNONE" Then GoSub 1800: Print "E' un vero relitto comunque e' meglio non assagiare i suoi colpi": GoSub 1650: GoTo 2680 2790 If R$ = "0" Then 2810 2800 GoSub 1800: Print " LASCIA STARE...": GoSub 1650: GoTo 2680 2810 GoSub 1650: GoSub 1800: Input " Direzione "; DI$: If DI$ = D1$ Then 2410 2820 If DI$ <> D1$ Then: Print: Print " Non e' possibile": GoTo 2810 2830 ' 2840 ' ***************************** 2850 ' * * 2860 ' * BIBLIOTECA * 2870 ' * * 2880 ' ***************************** 2890 ' 2900 Play "CCGA": Color 10: Cls: Color 9, 10 'Screen 0, 10, 10 '"DODOSOLA" 2910 Locate 1, 13: Print "BIBLIOTECA": Print 'Locate 13, 1 2920 GoSub 1640 2930 Print "Questa e' un antica biblioteca,su di un grosso SCAFFALE vi sono LIBRI di tutti i generi, pieni di ragnatele,al centro della stanza c'e'un TAVOLO.": Print: Print "Direzioni:NORD,EST,OVEST" 2940 GoSub 1650 2950 GoSub 1730 2960 If R$ = VO$ Then GoSub 1240: GoTo 2900 2970 If R$ = OG$ Then GoSub 1500: GoTo 2900 2980 If R$ = V6$ + " " + "LIBRI" Then GoSub 1800: LG = 1: Print "C'e'n'e'uno particolare!!!!!": GoSub 1650: GoTo 2950 2990 If R$ = "LEGGO" + " " + "LIBRO" And LG = 1 Then GoSub 1800: Print "Ah!,dice che per portare al termine l'adventure bisogna a qualsiasi costo trovare il FISSATORE per dentiere che si trova nel cimitero....": GoSub 1650: GoTo 2950 3000 If R$ = V2$ + " " + "SCAFFALE" And FR = 1 Then LU = 1: GoSub 1800: Print "Sono caduti tutti i libri!!! comunque dietro lo scaffale c'euno strano LUOGO....": GoSub 1650: GoTo 2950 3010 If R$ = V2$ + " " + "SCAFFALE" And FR = 0 Then GoSub 1800: Print "I libri ti cadono addosso...brutta fine morire soffocati": GoSub 1650: GoTo 2020 3020 If R$ = V6$ + " " + "LUOGO" And LU = 1 Then PO = 1: GoSub 1800: Print "E'un brutto posto, comunque vedi una BOTTIGLIA, ma anche un pipistrello deciso a ferirti...": GoSub 1650: GoTo 2950 3030 If PO = 1 And R$ = V8$ + " " + "FRUSTA" Then PO = 2: LQ = 1: GoSub 1800: Print "Hai ucciso il pipistrello, povera bestia, dunque hai davanti a te la BOTTIGLIA piena di un liquido misterioso..": GoSub 1650: GoTo 2950 3040 If PO = 1 Then GoSub 1800: Print "Hai fatto male!!! il pipistrello non perdona...perdi sangue... muori!!!!": GoSub 1650: GoTo 2020 3050 If R$ = V1$ + " " + "BOTTIGLIA" And PO = 2 And LQ = 1 Then VE = 1: GoSub 1800: Print "Bravo!!,hai avuto coraggio ora sei immune ai veleni": GoSub 1650: GoTo 2950 3060 If R$ = V6$ + " " + "TAVOLO" Then GoSub 1800: Print "Non ci noto nulla di anormale...": GoSub 1650: GoTo 2950 3070 If R$ = "0" Then 3090 3080 GoSub 1800: Print " LASCIA STARE...": GoSub 1650: GoTo 2950 3090 GoSub 1650: GoSub 1800: Input " Direzione"; DI$ 3100 If DI$ = D4$ Then GoTo 2180 ElseIf DI$ = D1$ Then GoTo 3190 ElseIf DI$ = D3$ Then GoTo 3450 ElseIf DI$ = D3$ Then GoTo 2180 End If 3110 GoSub 1800: Print " Non e'possibile": GoTo 3090 3120 ' 3130 ' ****************************** 3140 ' * * 3150 ' * STANZA DEI TESORI * 3160 ' * * 3170 ' ****************************** 3180 ' 3190 Play "CDC" '"DOREDO" 3200 Cls: Locate 1, 9: Print "STANZA DEI TESORI": Print 'Locate 9, 1 3210 GoSub 1640 3220 Print "Ti trovi nell'immensa stanza dei tesori, vedi Uno SCRIGNO, una PORTA dorata dei CIMELI di inestimabile valore (artistico)....senti dei lamenti": Print: Print "Direzioni: Sud" 3230 GoSub 1650 3240 GoSub 1730 3250 If R$ = V5$ + " " + O2$ And XC = 0 Then GoSub 1800: Print "La porta si e'chiusa e davanti a te c'e'un gran Fossato, non hai i mezzi per oltrepassarlo, rimarrai qui den tro per il resto della tua corta vita": GoSub 1650: GoTo 2020 3260 If R$ = V5$ + " " + O2$ And XC = 1 Then LK = 1: GoSub 1800: Print "O.k. amico, non ti trovi molto a tuo agio, la porta si e' chiusa e davanti a te c'e'solo un gran fossato, comunque noti qualcosa a cui appenderti ci vorrebbe una CORDA..": GoSub 1650: GoTo 3240 3270 If R$ = V8$ + " " + "CORDA" And LK = 1 Then KL = 1: GoSub 1800: Print "Ehi,che mira! sembri Indiana Jones... hai superato il fossato e trovi una SPRANGA di ferro...": GoSub 1650: GoTo 3240 3280 If R$ = V9$ + " " + "SPRANGA" And KL = 1 Then SP = 1: OG = OG + 1: GoSub 1800: Print " O.K...": GoSub 1650: GoTo 3240 3290 If R$ = V6$ + " " + "SCRIGNO" And SC = 0 Then Print "Non e' uno scrigno ma un profondo pozzo,da qui provengono i lamenti...bisogna che trovi una SCALA deve stare in qualche stanza del castello.....": GoSub 1650: GoTo 3240 3300 If R$ = V6$ + " " + "SCRIGNO" And SC = 1 Then HJ = 1: GoSub 1650: Print "Non e' uno scrigno ma un profondo pozzo,da qui provengono i lamenti ci vorrebbe una SCALA...": GoSub 1650: GoTo 3240 3310 If R$ = V8$ + " " + "SCALA" And HJ = 1 Then US = 1: GoSub 1800: Print "Bravo eroe hai salvato la vita a questo turista giapponese,vittima dei vampiri...ma ora cosa vuoi? la medaglia , continua l'adventure!!!!!": GoSub 1650: GoTo 3240 3320 If R$ = V6$ + " " + "CIMELI" Then GoSub 1800: Print "Sono di gran classe....davvero!!!": GoSub 1650: GoTo 3240 3330 If R$ = V9$ + "CIMELI" Then GoSub 1800: Print "Fermo !!!!non sei venuto qui per rubare....guarda che figura..": GoSub 1650: GoTo 3240 3340 If R$ = "0" Then 3380 3350 If R$ = VO$ Then GoSub 1240: GoTo 3190 3360 If R$ = OG$ Then GoSub 1500: GoTo 3190 3370 GoSub 1800: Print " LASCIA STARE...": GoSub 1650: GoTo 3240 3380 GoSub 1650: GoSub 1800: Input " Direzione "; DI$: If DI$ = D2$ Then 2900 3390 If DI$ <> D2$ Then Print: Print " Non e' possibile": GoTo 3380 3400 '****************************** 3410 '* * 3420 '* STANZA DEGLI OSPITI * 3430 '* * 3440 '****************************** 3450 Play "CCDA" '"DODORELA" 3460 Color 11: Cls: Color 4, 11: Locate 1, 12: Print "SALA OSPITI": Print 'locate 12, 1 3470 GoSub 1640 3480 Print "Ti trovi nella lugubre stanza degli ospiti vedi un QUADRO raffigurante Frankenstein,un LETTO poco invitante e un grazioso cadavere con due bei buchi sul collo......": Print: Print "Direzioni:Ovest" 3490 GoSub 1650 3500 GoSub 1730 3510 If R$ = VO$ Then GoSub 1240: GoTo 3450 3520 If R$ = OG$ Then GoSub 1500: GoTo 3450 3530 If R$ = V6$ + " " + "QUADRO" Then FK = 1: GoSub 1800: Print "C'e'l'effige di FRANKESTEIN, ma un momento....il mostro si muove!!! ci vor rebbe qualcosa per colpirlo": GoSub 1650: GoTo 3500 3540 If FK = 1 And R$ = V8$ + " " + "SPRANGA" And SP = 1 Then FK = 2: GoSub 1800: Print "Wow!!! l'hai steso...guarda guarda... aveva con se un CROCIFISSO !!!!": GoSub 1650: GoTo 3500 3550 If R$ = V9$ + " " + "CROCIFISSO" And FK = 2 Then CR = 1: GoSub 1800: Print "O.K...": GoSub 1650: GoTo 3500 3560 If FK = 1 Then GoSub 1800: Print "Sai il mostrino, ha delle forti braccia....": GoSub 1650: GoTo 2020 3570 If R$ = V4$ + " " + "LETTO" Then GoSub 1800: Print "Che schifo c'e' solo un putridume di carne in disfacimento.....": GoSub 1650: GoTo 3490 3580 If R$ = V6$ + " " + "LETTO" Then GoSub 1800: Print "Niente da dire...non ci dormirei mai ma e' un letto e basta!!!": GoSub 1650: GoTo 3500 3590 If R$ = "0" Then 3610 3600 GoSub 1800: Print " LASCIA STARE...": GoSub 1650: GoTo 3500 3610 GoSub 1650: GoSub 1800: Input " Direzione"; DI$ 3620 If DI$ = D4$ Then 2900 3630 GoSub 1800: Print " Non e'possibile": GoTo 3610 3640 ' 3650 If OG < 9 Then GoSub 1800: Print "Ok!! amico guardaci dentro per i prossimi cento anni!!!": GoSub 1650: GoTo 2020 3660 If OG = 9 And VE = 1 Then Cls: SR = 1: GoSub 1640: Print "Ehi! ma questo e' il nascondiglio di DRACULA e'pieno di serpenti ma avendo bevuto il siero antiveleno puoi stare tranquillo!!!" 3670 If OG = 9 And VE = 0 Then GoSub 1800: GoSub 1640: Print "E'il nascondiglio di Dracula,pero'e' pieno di serpenti,uno ti morde,muori": GoSub 1650: End 3680 If SR = 1 And US = 0 Then GoSub 1800: GoSub 1640: Print "Comunque non hai salvato il turista ": GoSub 1650: End 3690 If SR = 1 And US = 1 Then DF = 1: Print: Print "Hai salvato il turista,bravo!!!" 3700 If DF = 1 And CR = 0 Then Print: Print "Pero' all' improvviso arriva un fanta sma non hai il crocifisso e muori": GoSub 1650: End 3710 If DF = 1 And CR = 1 Then LP = 1: Print: Print "Arriva un fantasma all' improvviso usi il crocifisso che hai trovato e lo fai secco" 3720 If LP = 1 And FI = 0 Then: Print: Print "Ecco il conte e' ansioso di avere il suo fissatore ma purtroppo tu non lo hai e ti si suga.....": GoSub 1650: End 3730 If LP = 1 And FI = 1 Then: Print: Print "Ecco che arriva il conte e vede che porti con te il suo fissatore... per la gioia ti da un bacetto sul collo ti ritrovi senza un goccio di sangue ma felice di aver risolto l'ADVENTURE": GoSub 1650: End 3740 Color 15: Cls: Color 9, 15 'Screen 0, 7, 7 3750 ' 3760 ' 3770 Locate 4, 1: Print "TI TROVI NEL CASTELLO DEL CONTE DRACULA, UN LUOGO PIENO DI INSIDIE (TRAPPO LE TRABOCCHETTI)." 'Locate 1, 4 3780 Print: Print "IL TUO SCOPO E'DI RIUSCIRE A TROVARE IL FAMOSO VAMPIRO NASCOSTO IN QUALCHE ALA DEL CASTELLO." 3790 Print: Print "PER RIUSCIRCI DEVI PERO' RECUPERARE DEGLI OGGETTI (ALCUNI NASCOSTI),SENZA I QUALI NON POTRESTI ACCEDERE IN LUOGHI SEGRETI ANDANDO INCONTRO A MORTE SICURA." 3800 Print: Print "IMPORTANTE!!: RIVOLGERSI AL COMPUTER SCRIVENDO MAIUSCOLO ED IN PRIMA PERSONA. (ES. PRENDO CHIAVE) PER CAMBIARE DIREZIONE SCRIVERE '0'+ RETURN. COMANDI SPECIALI: VOCABOLARIO; INVENTARIO." 3810 Print: Print "PREMI UN TASTO PER COMINCIARE" 3820 If InKey$ = "" Then GoTo 3820 3830 Return 3840 Stop